perm filename GEOMEL.FAI[LSP,BGB] blob sn#043286 filedate 1973-05-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE GEOMEL
C00003 ENDMK
CāŠ—;
	TITLE GEOMEL

	EXTERNAL FSINIT,LISP,PDL

START:	CALLI 0
	MOVE 17,[XWD =500,PDL]
	PUSHJ 17,FSINIT
	PUSH [15*=1024]
	PUSHJ 17,LISP
	EXIT 1,
	JRST START+1
	END START